#!/usr/bin/perl -w
use strict;
for (@ARGV)
{
	chomp;
	exit 1 if (! -f $_);
}
